72 65536 mul 4718592 div dup cols mul exch rows mul scale
/picstr1 cols 7 add 8 idiv string def
/readdata currentfile exch readhexstring pop def
/imagemask2 level2 /imagemask load def begin
Width Height false ImageMatrix
/DataSource load imagemask end def ifelse
/beginimage 
imagemask2
 def
12 dict begin
/ImageType 1 def
/Width cols def
/Height rows def
/ImageMatrix [cols 0 0 rows neg 0 rows] def
/BitsPerComponent 1 def
/Decode [0 1] def
/DataSource picstr1 readdata def
currentdict end